home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9105.d64 / arc 1.5.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  13KB  |  350 lines
  1. 10 SYS36864
  2. 20 .OPT OO
  3. 30 *= 49152
  4. 50 ZIEL =2049
  5. 90 SER1 =1 ; VERSIONSNUMMER
  6. 92 SER2 =5 ; SEKUNDAER
  7. 100 CINT =65409
  8. 102 OPEN =$FFC0
  9. 104 CLOSE =$FFC3
  10. 106 CHKOUT =$FFC9
  11. 108 CLRCHN =$FFCC
  12. 110 PRINT =$FFD2
  13. 112 GET =$FFE4
  14. 114 PTR =2
  15. 116 CLALL =$FFE7
  16. 118 AXOUT =$BDCD
  17. 120 STROUT =$AB1E
  18. 122 ANZPRG =4
  19. 124 GR =5
  20. 126 SETNAM =$FFBD
  21. 128 DN =$B8
  22. 130 NAMLEN =183
  23. 132 SA =$B9
  24. 134 LEN =251
  25. 136 RETURN =$AAD7
  26. 138 TSYS =158
  27. 140 BANK =1
  28. 142 TMP =166
  29. 144 CRS1 =$CC
  30. 146 CRS2 =$CD
  31. 148 CRS3 =$CF
  32. 150 NAME =820
  33. 152 ZEILE =214
  34. 154 SPACE =$AB3F
  35. 156 VIC =$D000
  36. 158 BILD =$D1
  37. 160 NAMBER =$CD00 ; 45 FILES A 17 ZEICHEN
  38. 162 CALC =$E9F0
  39. 166 TMP2 =181
  40. 168 SCRADR =648
  41. 170 SCRMEM =$D000
  42. 172 CLRSCR =$E544
  43. 174 SENDNAM =$F3D5
  44. 176 TALK =$FFB4
  45. 178 SECTALK =$FF96
  46. 180 IECIN =$FFA5
  47. 182 STATUS =$90
  48. 184 CLSFIL =$F642
  49. 186 FA =$BA
  50. 188 KEY =198
  51. 190 CLRX =59903
  52. 192 ALLE =139
  53. 194 LFD =140
  54. 196 CHKIN =$FFC6
  55. 198 FEHLER =704; FEHLERKANAL
  56. 200 REAL =141
  57. 202 LAST =142
  58. 204 AKTLEN =170
  59. 206 LENPOS =178
  60. 208 MEMEND =$BF00
  61. 210 SAVE =$FFD8
  62. 212 IOFLAG =157
  63. 214 RESET =65532
  64. 216 SUM =253
  65. 218 LAENGE =254
  66. 220 SPALTE =211
  67. 224 CURSOR =58732
  68. 900 BASE JMP LOSGEHTS
  69. 1000 HELP .ASC " BITTE GEBEN SIE DIE FILENAMEN DER MAX.
  70. 1002 .BYT 13:.[198] " 45 EINZELFILES EIN. '$': DIR. ANZEIGEN
  71. 1004 .BYT 13:.ASC "                     '*': FERTIG
  72. 1006 .BYT 13:.[198] "                     '?': KORREKTUR
  73. 1008 .BYT 13:.ASC "                     ':': DIR. LESEN":.BYT 13,0
  74. 1010 HOLNAM1 .BYT 13:.ASC " NAME DES ":BRK
  75. 1012 HOLNAM2 .ASC ". FILES ? ":BRK
  76. 1020 TASTE .BYT 13:.ASC " - WEITER MIT TASTE -":BRK
  77. 1022 ALSO .ASC " ES WURDEN ":BRK
  78. 1024 ALSO2 .ASC " FILES ERFASST.":.BYT 13
  79. 1026 .ASC " SIND DIE ALLE AUF EINER DISKETTE ? ":BRK
  80. 1030 GESASK .BYT 13:.ASC " GESAMTFILE - NAME ? ":BRK
  81. 1032 AUTOTXT .ASC " FILES AUS DIRECTORY EINLESEN.":.BYT 13
  82. 1033 .ASC "    (J) FILE UEBERNEHMEN":.BYT 13
  83. 1034 .ASC "    (N) FILE UEBERSPRINGEN":.BYT 13
  84. 1035 .ASC "    (*) FERTIG":.BYT 13
  85. 1036 .ASC "    (D) DISKETTE WECHSELN":.BYT 13
  86. 1037 .ASC "    (A) ARC NEU STARTEN":BRK
  87. 1040 OHA .ASC " BEARBEITE FILE NR. ":BRK
  88. 1042 OHU .BYT 13:.ASC " NAME: ":BRK
  89. 1044 OHE .BYT 13:.ASC " - BITTE DISKETTE EINLEGEN -":BRK
  90. 1050 CSU .ASC " DISKFEHLER: ":BRK
  91. 1052 SPD .ASC "  (V) NOCHMAL VERSUCHEN
  92. 1054 HOPE .BYT 13:.[198] "  (N) NAECHSTES FILE
  93. 1056 .BYT 13:.ASC "  (E) ENDE":BRK
  94. 1060 DAHIN .BYT 13:.ASC " LADEADRESSE : ":BRK
  95. 1062 LOADA .ASC " STARTADRESSE: ":BRK
  96. 1064 FULL .BYT 13:.ASC " FILE ZU LANG - SPEICHER VOLL !!":BRK
  97. 1070 JETZT .ASC " GESAMTFILE WIRD GESPEICHERT
  98. 1072 .BYT 13:.[198] " - BITTE DISKETTE EINLEGEN -":BRK
  99. 1074 JETZNED .[198] " ALLE FILES UEBERSPRUNGEN !":BRK
  100. 1080 ALK .BYT 13:.[198] " SPEICHERUNG BEENDET. ALLES OKAY.
  101. 1082 BOB .BYT 13:.ASC " PROGRAMM NOCHMAL STARTEN ? [J/N]":BRK
  102. 1084 WATNU .BYT 13:.ASC "  (V) NOCHMAL VERSUCHEN
  103. 1086 .BYT 13:.[198] "  (E) ENDE":BRK
  104. 1090 AUZER1 .[198] "STAND: ":BRK
  105. 1092 ANZER2 .[198] " VON MAX. 45 FILES ERFASST.":BRK
  106. 1094 AUZER3 .[198] "DISKETTE EINLEGEN!":BRK
  107. 1096 AUZER4 .[198] "DISKETTEN-NAME: ":BRK
  108. 1098 DIRNE .[198] "$0
  109. 1100 AUZER5 .ASC "FILE: ":BRK
  110. 1110 AUZLEN .ASC "BLOCK-SUMME: ":BRK
  111. 1120 ANZ2 .BYT 13:.ASC "        FREI: ":BRK
  112. 1122 MOMANZ .ASC "LAENGE: ":BRK
  113. 2000 KOPF =*
  114. 2001 BAS =*
  115. 2002 .WOR ENDP,1990
  116. 2004 .BYT TSYS:.ASC "2061":BRK
  117. 2006 ENDP =*-BAS+ZIEL
  118. 2008 .WOR 0
  119. 2010 JSR CINT:JSR CLALL:LDA #6:STA VIC+32:STA VIC+33
  120. 2012 LDA FA:CMP #8:BCC SET8B:CMP #15:BCC OKAYB
  121. 2013 SET8B LDA #8:STA FA
  122. 2014 OKAYB LDA #<GENB:LDY #>GENB:STA PTR:STY PTR+1
  123. 2016 JSR HOL:STA ANZPRG:STY GR
  124. 2018 LDA #<TXT1:LDY #>TXT1:JSR STROUT
  125. 2020 FILELOOP INC GR:LDA #<TXT2:LDY #>TXT2:JSR STROUT:LDX GR:LDA #0:JSR AXOUT
  126. 2022 LDA #<TXT3:LDY #>TXT3:JSR STROUT:LDX ANZPRG:LDA #0:JSR AXOUT
  127. 2023 LDX PTR:LDY PTR+1:JSR SETNAM
  128. 2024 JSR HOL:BNE (null)N:LDA #<TXT4:LDY #>TXT4:JSR STROUT:JSR CLALL
  129. 2025 LDX GR:DEX:LDA #0:JSR AXOUT:JMP RETURN
  130. 2026 (null)N INY:STY NAMLEN:STY SA:STY DN
  131. 2028 GETNAM JSR HOL:BEQ HATES:INC NAMLEN:BNE GETNAM
  132. 2029 QFILELOOP BCC FILELOOP
  133. 2030 HATES LDA #54:STA BANK:JSR OPEN:INC BANK:LDX #1:JSR CHKOUT
  134. 2032 JSR HOL:JSR PRINT:JSR HOL:JSR PRINT
  135. 2034 JSR HOL:STA LEN:JSR HOL:STA LEN+1
  136. 2036 SAVEPRG LDA LEN:BNE NOCHWAS:LDA LEN+1:BEQ FERTIG:DEC LEN+1
  137. 2038 NOCHWAS DEC LEN:JSR HOL:JSR PRINT:CLC:BCC SAVEPRG
  138. 2040 FERTIG JSR CLRCHN:LDA #1:JSR CLOSE:CLC:BCC QFILELOOP
  139. 2100 HOL =*-BAS+ZIEL
  140. 2102 LDA #54:STA BANK
  141. 2104 LDY #0:LDA (PTR),Y:INC PTR:BNE LOOP1:INC PTR+1
  142. 2106 LOOP1 INC BANK:AND #$FF:RTS
  143. 2150 TXT1 =*-BAS+ZIEL
  144. 2151 ATXT1 .ASC "[142][147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  145. 2152 .[198] "ARCHIVE V":.BYT SER1[170]48,".",SER2[170]48,32
  146. 2154 MODE .[198] "GEN    VON NIKOLAUS HEUSLER
  147. 2156 .ASC "(C) NH-071290-ARR       EIN NSS PROGRAMM
  148. 2158 .BYT 13
  149. 2160 ART .[198] "DIE FILES WERDEN ERZEUGT...":BRK
  150. 2162 TXT2 [178][172][171]BAS[170]ZIEL
  151. 2164 .BYT 13:.[198] "ONFILE ":BRK
  152. 2166 TXT3 [178][172][171]BAS[170]ZIEL
  153. 2168 .BYT 13:.[198] "ONVON ":BRK
  154. 2170 TXT4 [178][172][171]BAS[170]ZIEL
  155. 2172 .BYT 13:.[198] "ONFERTIG !!    FILES GENERIERTCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":BRK
  156. 2190 [128]KOPF [178][172]
  157. 2200 GENB [178][172][171]BAS[170]ZIEL
  158. 2210 MEM[195] [178]MEM[128][171]GENB
  159. 2212 MEMBLK [178][177]MEM[195]
  160. 2900 SCHIEB [178][128]KOPF[171]KOPF[171]256
  161. 3000 COPYDOWN LDY #0
  162. 3002 COPY1 LDA KOPF,Y:STA ZIEL,Y
  163. 3004 LDA KOPF[170]SCHIEB,Y:STA ZIEL[170]SCHIEB,Y
  164. 3006 INY:BNE COPY1:RTS
  165. 3050 [156]PAG LDX #5
  166. 3052 CPG JSR [156]X:INX:CPX #24:BCC CPG:RTS
  167. 3100 [161]NAME JSR DELBER:LDX #0:STX [195]
  168. 3102 KEYLP LDA #0:STA CRS1
  169. 3104 WK JSR [161]:BEQ WK
  170. 3106 LDX #2:STX CRS2
  171. 3108 WX LDX CRS3:BNE WX
  172. 3110 INC CRS1:CMP #13:BNE TEXT:LDX [195]:BEQ KEYLP
  173. 3112 RTS
  174. 3114 TEXT CMP #20:BNE NODEL:LDX [195]:BEQ KEYLP:JSR [153]:DEC [195]:BPL KEYLP
  175. 3116 NODEL CMP #32:BCS OK1
  176. 3118 WR[145]G JMP KEYLP
  177. 3120 OK1 TAX:BPL OK:CMP #149:BCC WR[145]G:CMP #156:BCC OK:CMP #160:BCC WR[145]G
  178. 3122 OK LDX [195]:CPX #16:BCS KEYLP:STA NAME,X:JSR [153]:INC [195]:BNE KEYLP
  179. 3150 DELBER LDX #16:LDA #"CLOSE
  180. 3152 D1 JSR PRINT:DEX:BNE D1
  181. 3154 LDX #16:LDA #"[157]
  182. 3156 D2 JSR [153]:DEX:BNE D2:RTS
  183. 3200 CAX DEX:STX TMP2:LDA #0:STA TMP[170]1:TXA:LDX #4
  184. 3202 CAX1 ASL:ROL TMP[170]1:DEX:BNE CAX1:ADC TMP2:STA TMP:LDA TMP[170]1
  185. 3204 ADC #[177]NAMBER:STA TMP[170]1:RTS
  186. 3300 SCROLL LDX #11
  187. 3302 SCR1 JSR CALC:LDA BILD:STA TMP:LDA BILD[170]1:STA TMP[170]1
  188. 3304 INX:JSR CALC:LDY #39
  189. 3306 SCR2 LDA (BILD),Y:STA (TMP),Y:DEY:BPL SCR2
  190. 3308 CPX #23:BCC SCR1
  191. 3310 UP LDA #"ON":JMP [153]
  192. 3350 PUT LDY #0:STA (PTR),Y:INC PTR:BNE RAUS:INC PTR[170]1
  193. 3352 RAUS RTS
  194. 3360 [160]9 JSR [156]CHN:LDA #9:JMP [160]
  195. 3400 DIR LDY #0:STY TMP:STY TMP2:LDA SCRADR:STA TMP[170]1:LDA #[177]SCRMEM
  196. 3402 STA TMP2[170]1:LDX #48:SEI:STX BANK:LDX #4:LDA ZEILE:PHA
  197. 3404 COPY3 LDA (TMP),Y:STA (TMP2),Y:DEY:BNE COPY3:INC TMP[170]1:INC TMP2[170]1:DEX
  198. 3406 BNE COPY3:LDX #55:STX BANK:CLI:JSR [156]SCR
  199. 3408 LDX #[179]NAME:LDY #[177]NAME:LDA [195]:JSR SETNAM:LDA #$60:STA SA:JSR S[128]NAM
  200. 3410 LDA FA:JSR TALK:LDA SA:JSR SECTALK:LDA #0:STA STATUS:LDY #3
  201. 3412 L1 STY TMP:JSR IECIN:STA TMP[170]1:LDY STATUS:BNE L4:JSR IECIN:LDY STATUS
  202. 3414 BNE L4:LDY TMP:DEY:BNE L1:LDX TMP[170]1:JSR AXOUT:JSR SPACE
  203. 3416 L3 JSR IECIN:LDX STATUS:BNE L4:TAX:BEQ L2:JSR [153]:BCC L3
  204. 3418 L2 JSR [142]:LDY #2:BNE L1
  205. 3420 L4 JSR CLSFIL:LDA #[179]TASTE:LDY #[177]TASTE:JSR STROUT:JSR [146]KEY
  206. 3421 LDA #1:STA VIC[170]33:JSR [156]SCR:LDA #6:STA VIC[170]33
  207. 3422 PLA:STA ZEILE:LDX #48:SEI:STX BANK:LDX #4:LDA #[177]SCRMEM:STA TMP[170]1:LDY #0
  208. 3424 STY TMP:STY TMP2:LDA SCRADR:STA TMP2[170]1
  209. 3426 COPY2 LDA (TMP),Y:STA (TMP2),Y:DEY:BNE COPY2:INC TMP[170]1:INC TMP2[170]1
  210. 3428 DEX:BNE COPY2:LDX #55:STX BANK:CLI:RTS
  211. 3500 [146]KEY LDA #0:STA KEY
  212. 3502 WKK CMP KEY:BEQ WKK:DEC KEY:RTS
  213. 4000 LOSGEHTS JSR C[181]:JSR CLALL:LDA #6:STA VIC[170]32:STA VIC[170]33
  214. 4001 LDA FA:CMP #8:BCC SET8:CMP #15:BCC OKAY
  215. 4002 SET8 LDA #8:STA FA
  216. 4003 OKAY LDA #0:STA IOFLAG:STA ART:STA ANZPRG
  217. 4004 LDA #32:STA MODE:STA MODE[170]1:STA MODE[170]2
  218. 4006 LDA #[179]ATXT1:LDY #[177]ATXT1:JSR STROUT
  219. 4010 LDA #17:STA ART:LDA #"G":STA MODE:LDA #"E":STA MODE[170]1:LDA #"N
  220. 4012 STA MODE+2:LDA #<HELP:LDY #>HELP:JSR STROUT
  221. 4100 EING1 INC ANZPRG
  222. 4102 EING2 LDA #<HOLNAM1:LDY #>HOLNAM1:JSR STROUT:LDX ANZPRG:JSR XTAB
  223. 4104 LDA #<HOLNAM2:LDY #>HOLNAM2:JSR STROUT
  224. 4106 JSR GETNAME:LDA NAME:CMP #"*":BNE NOEND:LDA ANZPRG:CMP #2:BCS JAEND1
  225. 4108 STOP JSR UP:BCC EING2
  226. 4112 NOEND CMP #"?":BNE NOKOR:LDA ZEILE:CMP #12:BCC STOP
  227. 4114 DEC ANZPRG:JSR UP:BCC STOP
  228. 4116 NOKOR CMP #"$":BNE NODIR:JSR DIR:JMP STOP
  229. 4118 NODIR CMP #":":BNE NOAUT:JMP GETAUTO
  230. 4120 NOAUT LDX ANZPRG:CPX #46:BCS STOP:JSR CAX:LDY LEN:LDA #0:STA (TMP),Y:DEY
  231. 4122 TRANSNAM LDA NAME,Y:STA (TMP),Y:DEY:BPL TRANSNAM
  232. 4124 LDA ZEILE:CMP #23:BCC EING1:JSR SCROLL:JMP EING1
  233. 4200 JAEND1 DEC ANZPRG
  234. 4202 JAEND2 JSR CLRPAG
  235. 4204 LDA #<ALSO:LDY #>ALSO:JSR STROUT:LDX ANZPRG:JSR XOUT
  236. 4206 LDA #<ALSO2:LDY #>ALSO2:JSR STROUT:LDA #0:STA KEY
  237. 4208 WJN JSR GET:CMP #"J":BEQ OFF:CMP #"N":BNE WJN
  238. 4214 OFF JSR PRINT:SEC:SBC #"J":STA ALLE
  239. 4216 LDA #<GESASK:LDY #>GESASK:JSR STROUT:JSR GETNAME:LDA NAME:CMP #"*
  240. 4218 BEQ JA[128]2:CMP #"?":BEQ JA[128]2
  241. 4250 LDA #0:STA LFD:STA REAL:JSR COPYDOWN
  242. 4252 LDA #[179]GENB:LDY #[177]GENB:STA PTR:STY PTR[170]1:JSR PUT
  243. 4260 LDY #15:STY SA:STY DN:LDA #0:STA NAM[195]:JSR [159]
  244. 4300 MAIN INC LFD:LDX LFD:DEX:CPX ANZPRG:BNE SLEEP:JMP [128]E
  245. 4301 SLEEP LDX #5:LDA PTR:STA LAST:LDA PTR[170]1:STA LAST[170]1
  246. 4302 [156]P2 JSR [156]X:INX:CPX #19:BCC [156]P2
  247. 4304 LDA #[179]OHA:LDY #[177]OHA:JSR STROUT:LDA #0:LDX LFD:JSR XOUT
  248. 4306 LDA #[179]OHU:LDY #[177]OHU:JSR STROUT:LDX LFD:JSR CAX:LDA TMP:LDY TMP[170]1
  249. 4308 JSR STROUT
  250. 4316 LDA ALLE:BMI WEITER:LDA #[179]OHE:LDY #[177]OHE:JSR STROUT:JSR [146]KEY
  251. 4318 LDX #11:JSR [156]X:LDA ALLE:BNE WEITER:LDA #[171]1:STA ALLE
  252. 4320 WEITER LDY #[171]1
  253. 4322 WTR INY:LDA (TMP),Y:STY TMP2:JSR PUT:LDY TMP2:TAX:BNE WTR:TYA:LDX TMP
  254. 4324 LDY TMP[170]1:JSR SETNAM:LDA #0:STA SA:LDA #9:STA DN:JSR [159]
  255. 4326 LDX #15:JSR CHKIN:LDX #[171]1
  256. 4328 [161]ERR INX:JSR [161]:STA FEHLER,X:CMP #13:BNE [161]ERR:LDA #0:STA FEHLER[170]1,X
  257. 4330 JSR [156]CHN:LDA FEHLER:CMP #"0":BEQ AECHTZ
  258. 4331 JSR [160]9
  259. 4332 LDA #[179]CSU:LDY #[177]CSU:JSR STROUT:LDA #[179]FEHLER:LDY #[177]FEHLER:JSR STROUT
  260. 4334 LDA #[179]SPD:LDY #[177]SPD:JSR STROUT
  261. 4336 GTI JSR [161]:CMP #"E":BNE NOE
  262. 4337 HALT LDA LAST:STA PTR:LDA LAST[170]1:STA PTR[170]1:JMP [128]E
  263. 4338 NOE CMP #"V":BNE NOV:DEC LFD
  264. 4339 QMAIN LDA LAST:STA PTR:LDA LAST[170]1:STA PTR[170]1:JMP MAIN
  265. 4340 NOV CMP #"N":BNE GTI:BEQ QMAIN
  266. 4350 AECHTZ LDX #9:JSR CHKIN:JSR [161]:JSR PUT:PHA:JSR [161]:JSR PUT:PHA
  267. 4352 LDA #[179][147]A:LDY #[177][147]A:JSR STROUT:PLA:TAY:PLA:TAX:TYA:JSR AXOUT
  268. 4354 LDA PTR:STA [195][185]:LDA PTR[170]1:STA [195][185][170]1:LDA #0:STA AKT[195]:STA AKT[195][170]1
  269. 4356 JSR PUT:JSR PUT:LDA #[179]DAHIN:LDY #[177]DAHIN:JSR STROUT:LDX PTR:LDA PTR[170]1
  270. 4358 JSR AXOUT
  271. 4400 [147]LOOP JSR IECIN:TAX:LDA STATUS:LSR:LSR:BCS AB[176]T
  272. 4402 TXA:JSR PUT:INC AKT[195]:BNE NOINC:INC AKT[195][170]1
  273. 4404 NOINC LDA PTR[170]1:CMP #[177]MEM[128]:BCC [147]LOOP
  274. 4406 JSR [160]9:LDA #[179]FULL:LDY #[177]FULL:JSR STROUT
  275. 4408 LDA #[179]HOPE:LDY #[177]HOPE:JSR STROUT:LDA #0:STA KEY
  276. 4410 [161]NE JSR [161]:CMP #"E":BEQ QHALT:CMP #"N":BNE [161]NE:JMP QMAIN
  277. 4412 QHALT JMP HALT
  278. 4450 AB[176]T JSR [160]9
  279. 4452 LDY #0:LDA AKT[195]:STA ([195][185]),Y:INY:LDA AKT[195][170]1:STA ([195][185]),Y
  280. 4454 INC REAL:JMP MAIN
  281. 4500 [128]E LDA #0:JSR PUT
  282. 4502 [128] LDX #5
  283. 4504 [156]PG3 JSR [156]X:INX:CPX #19:BCC [156]PG3:LDA REAL:BEQ NIXDRIN:STA GENB
  284. 4505 LDA #[179]JETZT:LDY #[177]JETZT:JSR STROUT:JSR [146]KEY:LDX #7:JSR [156]X
  285. 4506 LDA [195]:LDX #[179]NAME:LDY #[177]NAME:JSR SETNAM
  286. 4508 LDA #54:STA BANK:LDX PTR:LDY PTR[170]1:LDA #[179]ZIEL:STA TMP:LDA #[177]ZIEL:STA TMP[170]1
  287. 4509 LDA #TMP:JSR [148]:INC BANK
  288. 4510 LDX #15:JSR CHKIN:LDX #[171]1
  289. 4512 [161]ERR2 INX:JSR [161]:STA FEHLER,X:CMP #13:BNE [161]ERR2:LDA #0:STA FEHLER[170]1,X
  290. 4514 JSR [156]CHN:LDA FEHLER:CMP #"0":BEQ AECHTZ2
  291. 4515 JSR [160]9:LDA #[179]CSU:LDY #[177]CSU:JSR STROUT:LDA #[179]FEHLER:LDY #[177]FEHLER
  292. 4516 JSR STROUT:LDA #[179]W[193]U:LDY #[177]W[193]U:JSR STROUT:LDA #0:STA KEY
  293. 4517 WAT JSR [161]:CMP #"E":BEQ [129]T:CMP #"V":BNE WAT:JMP [128]
  294. 4518 NIXDRIN LDA #[179]JETZNED:LDY #[177]JETZNED:JSR STROUT
  295. 4520 AECHTZ2 LDA #15:JSR [160]:LDA #[179]ALK:LDY #[177]ALK
  296. 4521 SOUT JSR STROUT:LDA #0:STA KEY
  297. 4522 ERWJN JSR [161]:CMP #"N":BNE LIVE:JMP (RESET)
  298. 4524 LIVE CMP #"J":BNE ERWJN
  299. 4526 NEUSTART JMP (BASE[170]1)
  300. 4528 [129]T LDA #[179]BOB:LDY #[177]BOB:BNE SOUT
  301. 4600 [161]AU[164] JSR [156]PAG:LDA #[179]AU[164]TXT:LDY #[177]AU[164]TXT:JSR STROUT
  302. 4602 LDA #0:STA SUM
  303. 4610 EIL1 JSR BLOCKOUT:LDX #19:JSR LINX:LDA #[179]AUZER1:LDY #[177]AUZER1:JSR STROUT
  304. 4612 LDX ANZPRG:DEX:JSR XTAB:LDA #[179]ANZER2:LDY #[177]ANZER2:JSR STROUT
  305. 4620 LDX #16:JSR [156]X
  306. 4621 LDX #14:JSR [156]X:JSR LINX:LDA #[179]AUZER3:LDY #[177]AUZER3:JSR STROUT
  307. 4622 DISKW JSR [146]KEY:INC KEY:JSR [161]:CMP #"A":BEQ NEUSTART
  308. 4624 LDX #[179]DIRNE:LDY #[177]DIRNE:LDA #2:JSR SETNAM:LDA #$60:STA SA:JSR S[128]NAM
  309. 4626 LDA FA:JSR TALK:LDA SA:JSR SECTALK:LDA #0:STA STATUS:LDY #8:JSR SKIP
  310. 4628 BCC D
  311. 4629 VNODISK JMP NODISK
  312. 4630 D LDX #14:JSR LINX:LDA #[179]AUZER4:LDY #[177]AUZER4:JSR STROUT:LDA #34:JSR [153]
  313. 4632 NAMOUT JSR IECIN:LDX STATUS:BNE VNODISK:JSR [153]:CMP #34:BNE NAMOUT
  314. 4640 SUCH0 JSR IECIN:LDX STATUS:BNE VNODISK:TAX:BNE SUCH0
  315. 4642 LDY #2:JSR SKIP
  316. 4643 QNODISK BCS VNODISK:JSR IECIN:PHA:JSR IECIN:PLA:STA LAENGE
  317. 4644 SUCH[165] JSR IECIN:LDX STATUS:BNE NODISK:CMP #34:BNE SUCH[165]
  318. 4646 LDX #16:JSR LINX
  319. 4647 LDA #[179]AUZER5:LDY #[177]AUZER5:JSR STROUT:LDA #34:JSR [153]
  320. 4648 LDX #0
  321. 4650 OT[164] STX [195]:JSR IECIN:LDX STATUS:BNE NODISK:LDX [195]
  322. 4652 CMP #34:BEQ [128]NAM:STA NAME,X:INX:BNE OT[164]
  323. 4654 [128]NAM LDA #0:STA NAME,X:LDA #[179]NAME:LDY #[177]NAME:JSR STROUT:LDA #34:JSR [153]
  324. 4656 LDA #28:STA SPALTE:LDA #[179]MOMANZ:LDY #[177]MOMANZ:JSR STROUT:LDX LAENGE:JSR XOUT
  325. 4660 WAHL JSR [161]:CMP #"A":BEQ QNEUSTART
  326. 4662 CMP #"*":BNE NOFINI:LDA ANZPRG:CMP #2:BCC WAHL:JSR CLSFIL:JMP JA[128]1
  327. 4663 QNEUSTART JMP NEUSTART
  328. 4664 NOFINI CMP #"D":BNE N[145]EW
  329. 4666 NODISK JSR CLSFIL:JMP EIL1
  330. 4668 N[145]EW CMP #"N":BEQ [130][145]E:CMP #"MID$":BEQ SHFTJ:CMP #"J":BNE WAHL
  331. 4670 LDA #MEMBLK:CMP SUM:BCC WAHL:SBC SUM:CMP LAENGE:BCC WAHL
  332. 4674 SHFTJ LDX ANZPRG:CPX #46:BCS WAHL:JSR CAX:LDY [195]
  333. 4676 TRANSNM LDA NAME,Y:STA (TMP),Y:DEY:BPL TRANSNM:INC ANZPRG
  334. 4678 LDA LAENGE:CLC:ADC SUM:BCC BCARRY:LDA #[171]1   
  335. 4679 BCARRY STA SUM:JSR BLOCKOUT
  336. 4680 [130][145]E LDX #16:JSR [156]X
  337. 4681 LDX #19:JSR LINX:LDA #[179]AUZER1:LDY #[177]AUZER1:JSR STROUT
  338. 4682 LDX ANZPRG:DEX:JSR XTAB:LDA #[179]ANZER2:LDY #[177]ANZER2:JSR STROUT
  339. 4684 JMP SUCH0
  340. 4700 SKIP STY TMP:JSR IECIN:LDA STATUS:BEQ OKST:SEC:RTS
  341. 4702 OKST LDY TMP:DEY:BNE SKIP:CLC:RTS
  342. 4800 BLOCKOUT LDX #21:JSR LINX:LDA #[179]AUZ[195]:LDY #[177]AUZ[195]:JSR STROUT
  343. 4802 LDX SUM:JSR XHUN:LDA #[179]ANZ2:LDY #[177]ANZ2:JSR STROUT:LDA #MEMBLK
  344. 4804 CMP SUM:BCC ZERO[184]:SBC SUM:.BYT $2C
  345. 4806 ZERO[184] LDA #0:TAX
  346. 4810 XHUN CPX #100:BCS XOUT:JSR SPACE
  347. 4812 XTAB CPX #10:BCS XOUT:JSR SPACE
  348. 4818 XOUT LDA #0:JMP AXOUT
  349. 4820 LINX LDA #1:STA SPALTE:STX ZEILE:JMP CURS[176]
  350.